home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / gemfsc18.lzh / AESSRC18.LZH / AESFUNCS / RSCSXTYP.C < prev    next >
C/C++ Source or Header  |  1992-03-29  |  712b  |  27 lines
  1. /**************************************************************************
  2.  * RSCSXTYP.C - Set extended object types within a tree.
  3.  *************************************************************************/
  4.  
  5. #include <stdarg.h>
  6. #include "gemfast.h"
  7.  
  8. void rsc_sxtypes(thetree)
  9.     OBJECT          *thetree;
  10. {
  11.     register OBJECT *ptree;
  12.     register int     thisobj;
  13.     register int     thistype;
  14.     va_list          args;
  15.  
  16.     va_start(args, thetree);
  17.     ptree = thetree;
  18.     for (;;) {
  19.         thisobj = va_arg(args, int);
  20.         if (thisobj < 0)
  21.             break;
  22.         thistype = va_arg(args, int);
  23.         ptree[thisobj].ob_type |= thistype << 8;
  24.     }
  25.     va_end(args);
  26. }
  27.